home *** CD-ROM | disk | FTP | other *** search
/ Aminet 9 / Aminet 9 (1995)(GTI - Schatztruhe)[!][Dec 1995].iso / Aminet / biz / dopus / DOpusList.lha / DOpusListers.rexx < prev   
OS/2 REXX Batch file  |  1995-10-02  |  1KB  |  68 lines
  1. /*
  2. **
  3. **  ©1995 Christopher Landmark Naas
  4. **  All Rights Reserved Worldwide
  5. **  Freely distributable as long as you do not change or edit any of
  6. **  the files in the archive.
  7. **
  8. **  If you use this script, you *must* send me either an EMail or a
  9. **  postcard telling me you are doing so.
  10. **
  11. **  EMail: christon@oslonett.no
  12. **  SMail: Christopher Naas
  13. **         Solveien 3a
  14. **         1533 Moss
  15. **         Norway
  16. **
  17. **
  18. **
  19. **  Description:
  20. **
  21. **  Opens or closes dopus listers in 4.12 format. Remembers the paths
  22. **  used before closing and uses them when the listers are opened again.
  23. **
  24. */
  25. address DOPUS.1
  26.  
  27. OPTIONS RESULTS
  28.  
  29. if open(file,"env:DopusListers",R) then do
  30.     open(file2,"env:DopusListersPath",W)
  31.  
  32.     addressen = readln(file)
  33.  
  34.     lister query addressen path
  35.     writeln(file2,result)
  36.  
  37.     lister close addressen
  38.  
  39.  
  40.     addressen = readln(file)
  41.  
  42.     lister query addressen path
  43.     writeln(file2,result)
  44.  
  45.     lister close addressen
  46.  
  47.     close(file2)
  48.     close(file)
  49.  
  50.     address command "run >nil: delete env:DopusListers"
  51. end
  52. else
  53. if open(file,"env:DopusListers",W) then do
  54.     open(file2,"env:DopusListersPath",R)
  55.  
  56.     pathen = readln(file2)
  57.     lister new '160/1/400/700 'pathen
  58.  
  59.     writeln(file,result)
  60.  
  61.     pathen = readln(file2)
  62.     lister new '560/1/400/700 'pathen
  63.  
  64.     writeln(file,result)
  65.  
  66.     close(file)
  67. end
  68.